home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Tele / T / TKProc.cpt / *.PROC's / GetFile < prev    next >
Encoding:
Text File  |  1991-08-21  |  683 b   |  42 lines  |  [TEXT/MWII]
  1. (GetFile.PROC)
  2. (Call up the Pathname Dialog box: Don't confuse A$ with A%)
  3. GETFILE A$
  4. (See if the CANCEL button was clicked)
  5. IF NO END
  6.  
  7. (Find out what duplex is set)
  8. GETGLOBAL A%,3
  9.  
  10. (Now set duplex to null to avoid sending the Pathname out the modem)
  11. COMM -NULL
  12.  
  13. (Place a carriage return at the end of the pathname)
  14. CONCAT A$,^M
  15.  
  16. (Print the Pathname)
  17. TYPE A$
  18.  
  19. (Now we have to restore the original duplex setting)
  20. (If A% was 0:FULL or 1:HALF or 2:ECHO or 3:NULL)
  21. TEST A% = 0
  22. IF NO JUMPTO HALF
  23. COMM -FULL
  24. END
  25.  
  26. :HALF
  27. TEST A% = 1
  28. IF NO JUMPTO ECHO
  29. COMM -HALF
  30. END
  31.  
  32. :ECHO
  33. TEST A% = 2
  34. IF NO JUMPTO NULL
  35. COMM -ECHO
  36. END
  37.  
  38. :NULL
  39. (No TEST or JUMPTO since this is the last choice)
  40. COMM -NULL
  41. END
  42.